home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 30 / Tiger_Disk_030_1996-09_Tiger-Crew-Disk_de_Side_D.d64 / anleitung zu -> (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  117 lines
  1. 2 rem story zu
  2. 3 rem dave parker in
  3. 4 rem wenn sie wuessten was sie tun
  4. 5 rem (w) by peter diehm 9/10/92
  5. 6 poke 53280,0:poke 53281,0:poke 657,128:poke 650,255
  6. 7 print"[147]"chr$(142)""
  7. 8 goto 50
  8. 10 get d$
  9. 11 printtab(30)chr$(145)"[154]-taste-[146]":forii=1to100:next
  10. 12 printtab(30)chr$(145)"[146]-taste-[146]":forii=1to100:next
  11. 13 if d$="" then 10
  12. 15 return
  13. 20 rem bild
  14. 21 printspc(1)"[147]"
  15. 22 printspc(5)" [207][205] [207][208] [205][206] e  [207][165][207][208] [207][205]
  16. 23 [153][166]5)" fnthen (NULL)(NULL)       (NULL) (NULL)(NULL) (NULL)sqr+(NULL)  (NULL) (NULL)(NULL)
  17. 24 printspc(5)" [204][206] [163][183][183][184][163][183][183][163][183][184][183][163][163] [165][205][170][205]  [207] [204][186]
  18. 25 [153][166]5)"   (w) by p.diehm   + (NULL) usr fn(NULL)
  19. 27 return
  20. 50 print"[147]":gosub 20
  21. 51 fori=1to20:print"--";:next
  22. 52 printspc(1)"in: wenn sie wuessten was sie tun !
  23. 53 [153][166]1)"grund idee: michael ebert
  24. 54 printspc(1)"split routine: jan templin
  25. 55 [153][166]1)"grafik: peter diehm
  26. 56 printspc(1)"programm: peter diehm
  27. 58 [153][166]1)"dies ist das persoenliche adv. aus dem
  28. 60 printspc(1)"pd-box wettbewerb der ausgabe 1 von
  29. 62 [153][166]1)"master mm soft gewonnen von michael
  30. 63 printspc(1)"ebert erstellt von pdpd soft 10/1992
  31. 65 [153][166]1)"   a pdpd clr software wait produktion
  32. 67 gosub10
  33. 70 print"[147]":fori=1to20:print"[196][198]";:next
  34. 72 printspc(1)"[158] story: [146]
  35. 73 [153][166]1)"erik berkamp lebt seit dem 5 lebens=
  36. 75 printspc(1)"jahr in deutschland, damals vor ca.12
  37. 76 [153][166]1)"jahren musste er mit seinen eltern aus
  38. 77 printspc(1)"suedafrika fliehen,da sein vater joe,
  39. 78 [153][166]1)"ein professor an der uni von johannis=
  40. 79 printspc(1)"burg, gegen die rassen poltik der
  41. 80 [153][166]1)"regierung an der uni wiederstand lei=
  42. 81 printspc(1)"stete und die studenten zum widerstand
  43. 82 [153][166]1)"aufforderte.
  44. 83 printspc(1)"er ist ein weisser, seine frau und
  45. 84 [153][166]1)"erik haben eine dunkle hautfarbe,
  46. 86 printspc(1)"fuer die drei war es in suedafrika
  47. 87 [153][166]1)"nicht leicht. joe war der sohn nieder=
  48. 88 printspc(1)"laendischer auswanderer seine frau
  49. 89 [153][166]1)"gehoerte einen stamm aus dem norden des
  50. 90 printspc(1)"landes an."
  51. 92 gosub10
  52. 94 print"[147]":fori=1to20:print"--";:next
  53. 96 printspc(1)"wer glaubt das sie in deutschland eine
  54. 97 [153][166]1)"bessere zukunft erwartete irrte ge=
  55. 98 printspc(1)"waltig. joe fand einen schlechten job
  56. 100 [153][166]1)"als lehrer in der provinz wo die men=
  57. 102 printspc(1)"schen nicht sehr aufgeschlossen zu
  58. 103 [153][166]1)"seiner familie waren, nur dave, der
  59. 104 printspc(1)"sohn eines us-soldaten,im selben alter
  60. 106 [153][166]1)"wie erik spielte mit diesem. die
  61. 107 printspc(1)"beiden wurden dicke freunde bis eines
  62. 108 [153][166]1)"tages...
  63. 110 printspc(1)"in ihrem dorf asylanten einquartiert
  64. 111 [153][166]1)"wurden und die bevoelkerung, ohne zu
  65. 112 printspc(1)"wissen was sie tat, das heim mehrmals
  66. 113 [153][166]1)"angriffen. erik und dave be=
  67. 114 printspc(1)"schlossen vor dem heim einige naechte
  68. 116 [153][166]1)"mahnwache zu halten !
  69. 118 printspc(1)"doch da geschah es...":gosub10
  70. 120 print"[147]":fori=1to20:print"--";:next
  71. 122 printspc(1)"rechtsradikale entfuehrten erik...
  72. 124 [153][166]1)"die polizei schaute tatenlos zu, es
  73. 125 printspc(1)"waren ihr die haende gebunden was
  74. 126 [153][166]1)"sollten sie zu 5 gegen eine horde von
  75. 128 printspc(1)"rechtsradikalen tun die von kaffern
  76. 130 [153][166]1)"stuermisch angefeuert wurden !"
  77. 132 [153][166]1)"also musste sich dave selber auf die
  78. 134 printspc(1)"suche nach erik machen...
  79. 135 [153][166]1)"wer dave ist muesste dir jetzt wohl
  80. 136 printspc(1)"klar sein !
  81. 138 [141]10
  82. 140 [153]"load":[129]i[178]1[164]20:[153]"str$asc";:[130]
  83. 142 [153][166]1)" anleitung: wait
  84. 143 printspc(1)"gesteuert wird das adventure mit den
  85. 144 [153][166]1)"f- und zahlen/buchstabentasten diese
  86. 145 printspc(1)"haben folgende [158] bedeutung: [146]
  87. 146 [153][166]1)"     f1= balken nach rechts
  88. 147 printspc(1)"     f3= balken nach links
  89. 148 [153][166]1)"     f5= aktion aufrufen
  90. 150 printspc(1)"     n- nach norden gehen
  91. 152 [153][166]1)"     s-  ''  sueden  ''
  92. 153 printspc(1)"     w-  ''  westen  ''
  93. 154 [153][166]1)"     o-  ''  osten   ''
  94. 155 printspc(1)"befehle: nimm,gebe,benutze,untersuche,
  95. 156 [153][166]1)"         load,save,inventar,befrage.":[141]10
  96. 157 [153]"load":[129]i[178]1[164]20:[153]"str$asc";:[130]
  97. 159 [153][166]1)"mit dem befehl befrage wird die person
  98. 160 printspc(1)"die gerade in der naehe ist nach dem
  99. 161 [153][166]1)"vorfall befragt.
  100. 162 printspc(1)"nach aufrufen von 'benutze' & 'gebe'
  101. 163 [153][166]1)"kommt sofern die befehle im moment
  102. 165 printspc(1)"sinnvoll sind eine auflistung aller
  103. 166 [153][166]1)"gegenstaende von denen manche nun
  104. 167 printspc(1)"einsetzbar sind.
  105. 169 [153][166]1)"das alles klingt etwas kompliziert,
  106. 170 printspc(1)"ist jedoch mit einwenig uebung gut
  107. 171 [153][166]1)"anwendbar !
  108. 173 printspc(1)"also drueck die taste und schon wird
  109. 174 [153][166]1)"das adventure nachgeladen...":[141]10
  110. 300 [143] nachload
  111. 302 [153]"loadcont loading wait 'dave parker' !stop
  112. 303 poke 828,0
  113. 304 print"load"chr$(gotopoke(NULL)cmdprint#(NULL)Y(NULL)Q(NULL){$7c}clrletgosubK(NULL)printpoke(NULL)cmd(NULL)let(NULL)(NULL)(NULL)m(NULL)print(NULL)(NULL)print#(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)U(NULL)(NULL)(NULL)(NULL)"[151] 631,13:[151] 632,13:[151] 198,2:[153]"";:[128]
  114. 400 [143] peter diehm
  115. 410 [143] waldstr.58
  116. 420 [143] 6149 rimbach 1
  117.